2.2 DatabaseUpdate

Der folgende Code schreibt vier Datensätze(Zeilen) in die Tabelle "Kunde".

Die vierte Abfrage unterscheidet sich etwas von den vorherigen drei Abfragen (SQL).

/****************************************************************

** **

** Name: 4_2_DBUpdate_InsertInto **

** Author: Michael Suther **

** Date: 07.04.19 **

** Interpreter: Hollywood 8.0 **

** Function: Schreibt Daten in die Tabelle "Kunde" **

** **

****************************************************************/

@INCLUDE "PostgreSQL_Lib.hws"

Block

;Netzwerkverbindung zum PostgreSQL-Server herstellen.

Local ConnectionID = OpenConnection(Nil,"localhost",5432)

;Einige Variablen definieren

Local Fail

Local Errorcode

Local Database$ = "postgres"

Local Username$ = "test"

Local Passwort$ = "test"

;Anmeldung

Fail, ErrorCode = PG:OpenDatabase(Database$, Username$, Passwort$, ConnectionID)

; Auswerten der Rückgabewerte

If Fail = False

NPrint("Verbindung wurde erfolgreich hergestellt.")

Else

NPrint("Die Verbindung ist fehlgeschlagen,")

NPrint("Fehlercode: ", ErrorCode)

EndIf

;Daten in die Tabelle "Kunde" schreiben

Fail, Errorcode = PG:DatabaseUpdate("INSERT INTO Kunde VALUES ('Michael', 'Mustermann')", ConnectionID)

Fail, Errorcode = PG:DatabaseUpdate("INSERT INTO Kunde VALUES ('Thomas', 'Mustermann')", ConnectionID)

Fail, Errorcode = PG:DatabaseUpdate("INSERT INTO Kunde VALUES ('Frank', 'Testmann')", ConnectionID)

Fail, Errorcode = PG:DatabaseUpdate("INSERT INTO Kunde (name) VALUES ('Mustermann')", ConnectionID)

; Auswerten der Rückgabewerte

If Fail = False

NPrint("Es wurden vier Kunden hinzugefühgt")

Else

NPrint("INSERT INTO Kunde ist fehlgeschlagen.")

NPrint("Fehlercode: ", ErrorCode)

EndIf

WaitLeftMouse

;Verbindung zur Datenbank schließen.

PG:CloseDatabase(ConnectionID)

EndBlock